-- card: 35660 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 4755
-- name: 


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=30 top=78 right=296 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part contents for background part 4
----- text -----
File 2 of 2:

-- part contents for background part 7
----- text -----
104

-- part contents for card part 1
----- text -----
/*
*   FILE:    contains.char.c
*   AUTHOR:  R.G.
*   CREATED: June 22, 1990
*   
*   Definition of contains_char().
*/

/******************************************************************
*   Recursive function to look for ocurrence of a character in
*   a character string (array)
******************************************************************/
int   contains_char(char *string,char c)
{
    /* recall that array name points to first element of array: */
    if (*string == '\0')    /* end of string encountered */
        return 0;           /* return false */
    else if (*string == c)  /* character found */
        return 1;           /* return true */
    else
        return contains_char(string+1,c);  /* look at rest of string */
}